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Introduction 


Profile is designed to store information of any kind. Since it is a computerized 


filing system, you may use it for anything at all. Profile can keep track of names 


and addresses, accounts, records, or even personal references. Specialized 
businesses could find many different uses: 


Ls 


2. 


3. 


A. 


List of customers or accounts. 
Personnel records. 
Prospective employees or accounts. 


General information referral. 


Profile can also serve many personal uses. It can be used as an address book, 
recipe file, or grocery inventory. You can even create your own personalized 


encyclopedia. Because of the program’s versatility, the possible uses are endless. 


This manual has been written to guide you step-by-step through Profile’s 
capabilities. We will give you examples that will give you a feel for the system. 
Once you understand the simple methods of the program’s operation, there are 
no limits to Profile’s applications. 


Features 

1. User-created form for records. 

2. Up to four Drives may be used to store data. 

3. Easy editing features. 

4. Versatile printing operations. 

5. Repeating keys for easy typing. 

6. Sorting by any item in ascending or descending order. 
7. Easily retrieves specified groups of records. 

8. Data files can be read by DISK BASIC. 


Introduction 


Some Things You Must Know Before Using Profile 


Some Things You Must Know Before Using Profile 


Before you begin running the program, there are a few terms that should be 
defined: 


Record — A record is like a piece of paper with information on it. It is, 
literally, a unit of data, placed in a specified form. 


File — A file is a place where data is kept. If a record is like a piece 
of paper with information, then a file is like a folder that 
holds many such pieces of paper. 


Field — A field is a movable line that contains information. Think of 
a field as a line on the paper that will be filled with 
information, a blank to be filled in. 


Field Name — This is the name of a line. It is simply an identifier. 
Field Data — This is the information that will go into a specific line or 
‘‘field’’. 


Note: You cannot use the Lower Case Driver to enter date or create forms using 
Profile. 


Setting Up Your Form 


Setting Up Your Form 


Diskettes can be damaged throuh contact with magnetic fields, mishandling, etc. 
To insure against loss of your program, before you begin running Profile, you 
should make a copy (Backup) of your Program Diskette, and file it in a safe place. 
If you are using more than one Drive, you must also prepare (Format) a blank 
diskette(s) which will be used to store your data. If you are not familiar with 
Format and Backup functions, refer to Appendices 1 and 2 in the back of this 
manual for detailed instructions. 

Follow these steps in exact order: 


1. Turn on the Disk Drives, Printer, Video Display, and the Expansion 
Interface. 


2. Insert the Backup copy of Profile in Drive #9. 
3. Insert your Data diskette(s) in Drive(s) #1-8 (if used). 
4. Turn on the TRS-80 keyboard. 
The screen will show: 
TASDOS Disk OPERATING SYSTEM VER 2.3 


DOS READY 


You type: 
(PIRI) and press : 
The screen will show: 

* *INITIALIZATION ** 


HOW MANY DRIVES (1-4) ?_ 


Press the number of Drives you will be using. 


Setting Up Your Form (continued) 


The screen will show: 


Notice the blinking cursor, near the upper left-hand corner; this is what you will 
use to organize what you write on the screen. Type your name on the keyboard. 
Notice how the cursor moves along the screen as your name is printed. Press the 
[+] key and you will see that the cursor moves to the right. If you keep the | 
key held down, the cursor will keep moving. Now use the $ arrow to move the 
cursor to the left. Any of the arrows, if held down, will keep the cursor moving in 
that direction until they are released. 


Use the arrows to move the cursor to the first letter of your name. Depress the 
key and press [1]. Your name moved to the right on the screen because 
you just Inserted a space. Depress the key again and hold down [1], so 
that your name moves to the center of the screen. Now hold down the [SHIFT] 
key and press [D]. This will Delete spaces between the cursor and your name. Keep 
the [SHIFT][D] held down until your name is deleted. 


All of the keys are repeating keys. Press any key and keep it held down. See how 
the key repeats on the screen? Now go back and delete the string of characters 
you have just typed, using the arrows, and [SHIFT][D) 


Before we go on, you might want to practice using these tools — the f4 and Bj 
keys, [SHIFT][1] and (BD), and the repeating keys, just so you get used to using 
them. After you have finished, delete all of the characters you have printed, by 
pressing [CLEAR]. The key is always used to restore the original 
contents of the screen. 


Now you are ready to set up the form — the way you want your records to 
appear. We will give you an example. You can do your own records in any manner 
you wish. For practice, though, follow along with us. 


Setting Up Your Form (continued) 


For our sample, we will do a list of club members, their addresses, etc. We will 
use seven fields (remember — a place for storing information): Member, Address, 
City, State, Birthdate, Dues Per Year, and Dues Paid. 


Note: Remember you can use whatever fields you want when you create your 
own data file. 


Bring the cursor to the first line after the title line. Type the first field name 

(Mw) [E)MI[B)E)[R) . Immediately after the word, place a colon [:] and a space. Then 
hold down the period keyL]to make a string of periods. The number of 

periods determine how many characters the program will accept for a member’s 
name. This is the field space itself — it is here that you will eventually place your 
field data. Be sure to make the line long enough to fit everything you will need. 
(Later on, you will enter the actual field data — the person’s name.) 


Note: You can have several fields on the same line. You must have continuous 
periods with at least one space between each field. 


The whole thing should look like this: 
MEW DMs. «265 es eu ee eae aesunes Chie s 


Once you have finished, press . This will take you to the next line on 
the screen. 


Now type in the other fields in the same manner. For state you will need only 
two periods. For Birthdate, it is usually better to put MMUD)ID[IAMIM) 

(month, day, year) instead of the periods. This makes it easier to read. Remember 
the colon and the space after each field name. For Dues Per Year and Dues Paid, 
you might want to use XXX.XX, for the amount. (We used periods before, 
because they are easy to see, but any character can be used.) 


You can now arrange the lines to make them look neater. Use the {1} and 
[D] to line up the colons. 


If you wish, you may change the title in the same manner. Move the cursor to the 
beginning of the title ** PROFILE DATA FORM ** and type in the new title. 


Now use the [SHIFTJ[I] and [Dj to adjust the new title to the middle of the 
screen. The top line is used for title only. Do not try to enter fields on the first 


line or they will be ignored. 


Setting Up Your Form (continued) 


The screen should look something like this: 


Press the key. The computer will now store the form you have just 
typed. When you add records (the actual names, etc.) this is the form that will 
be used. You only have to do this once, until you want to change the form of 
your entries. 


Cy 


The Computer’s Table of Contents 


The Computer’s Table of Contents 


The computer’s Table of Contents is called a ‘‘Main Menu’’. This is how it appears 


on your screen: 


(A)DD DATA 


(S)ORT DATA 


(ONISPLAY AE DUT 


(P)RINT DATA 


(@) EXIT TO DOS 


This is what each function does: 


This is where you will enter the field data (names, etc.) 
for your “‘records’’. 


This option allows you to put your records in alphabetical 
or numerical order, ascending or descending, by specified 


field. 


This will allow you to find any of your records, as well 
as change, or delete them. 


This will print your records, completely or partially, 
depending on which you choose. 


This lets you stop the program at any time. 


Adding Data 


Adding Data 
Press [A] at the Main Menu for Add Data. 


This is where you fill in all the information for your records. Notice that the 
blinking cursor is now located at the beginning of your first field. Go ahead and 
type in your name. The name you just typed in is called the field data. After you 
have typed in the name, press . The cursor will move to the next field. 


There are a few other editing features we should mention here. Pressing the 
key erases all field data and allows you to start over again. If you would like to 

erase the information in only one field, hold down the key and press fj key. 
The (f) and [}] keys can be used to move between fields, allowing you to make 
corrections. ) 


Fill in the rest of the fields in the record, in the same manner. When you finish, 
you will see the question, ARE ALL ENTRIES CORRECT (Y/N) ?_. If they 

are correct, press [Y]. If you press [N], the cursor will return to the first field. Once 
you press [Y], the form (record) is stored, and you may begin filling in a new 
record. 


Now go ahead and do several more. Use any names, addresses, cities, etc. that 
you like. This is only for practice. Fill in about ten records. When you have 
finished, press the key. You will return to the Main Menu. 
The screen will show: 

RECORDS USED: 

Aes LEFT: 


When you add names, the RECORDS USED will increase, while the RECORDS LEFT 
will decrease. This lets you keep track of how much information you have 


entered and how many more records you may add before you fill up your disk. 
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Sorting Records 


Sorting Records 


Press [§] at the Main Menu for Sort Data. 
The screen will show: 


SORT ACCORDING TO WHICH FIELD? 
NAME OT PIB LDS a2 oc ee  k 


The computer will automatically place your records in alphabetical or numerical 
order, according to whichever field you specify. Pick a field to Sort by. You can 
sort by Member, Address, City, State, etc. Type in one of these items and press 


ENTER}. 


The question SORT IN (A)SCENDING OR (D)ESCENDING ORDER (A/D)?_ 
will appear. This simply means, “‘do you want to start with A and go to Z, or start 
with Z and go to A?’’. Press [A] or [D) . 


The computer will do a number of passes (depending on how many records you 
have) through the records, refining the order on each pass. The screen will show 

the number of passes that remain before the computer has completed. If you havea 
large number of records, this may take some time. When the sorting has finished, you 
will automatically return to the Main Menu. Your records are now in the order 
specified. 


A word or two should be said about sorting dates and number values or prices. 


Enter your dates with the information most critical to you in front. If you wish 
to sort by the months, a date format of MM[(JDIDIINIM] is best. But if you 
wish to sort item into chronological order you would use a date format of 
VIMMMIM(A0)0) or possibly MMMMAMMMDD if the century is 
important. If you need to sort by both the month and the year, then you must 
have them be individual fields: 


MONTH: .. o5:3 Ga YEARS... 
YEAR: « MONTH? ... Rr game 


In order to sort and find numbers and prices correctly you will need to be sure 
that the decimal point (either actual or implied) is always in the same place. If 
you had the field $$$$.¢¢ and entered the values 2JIBJ@AOBIAD ana 
OMBI4ICIGI7) , the sort would place 734.57 first, because in one of the 
fields, the blank comes before the 7. To keep this from happening, you must 


enter J2/B)4ILJ3)4) and OMBI4LIBIZ) . This always puts the decimal point 
as the fifth character. 


A 23_ — is greater than a — — 99 so enter them as — _23 and _ __99. This 
way you “imply” that a decimal point follows the field as the fifth character. 


Press the key to return to the Main Menu. 
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Editing Records 


Editing Records 
Press (D] at the Main Menu for Display/Edit. 


At the bottom of the screen you will see that there are a number of options that 
you may use to display, edit, or delete any of the information on file. 


Options 

(F)IND Lets you find a specific record or group of records. Press 
, and then you will be asked which record(s) you wish 
to see. 

(NJEXT After you Find a group of records, this option lets you 
step through the records, one at a time. 

(PJREVIOUS The same function as Next, but in reverse, It lets you step 
backwards, from the current position, through the records. 

(E)DIT Allows you to change the field data in a particular record. 

(D)ELETE Allows you to erase a particular record in the file. 

(H)ARDCOPY This will let you have a printout of any particular record 
in the file. 

(¢) and (4) These arrows move you from the first record in the file 
to the last, and last to first, respectively. 

Pressing the key will return you to the Main 


Menu. 
The Find option uses a simple formula to find records quickly: 
FIND 
(everything that is stored) 
(that has a relationship to) 
(something). 


In other words, the computer looks for certain records that have a field that 
contains field data equal to, less than, greater than, etc., a particular field data. 


1S 


Editing Records (continued) 


If you wanted to find a member’s name beginning with a B, the method would 


be: NAME OF FIELD: MIEJMBIEJR) 


RELATION: (EJ(Q] (for Equal To) 
SEARCH FOR: 


All Relations use two-letter symbols: 


EQ — equal to; NE — not equal to; GT — greater than; LT — less than; 
GE — greater than, or equal to; LE — less than, or equal to. 


To find names beginning with C, and everything greater than C, you would say, (G)[E) 
(greater than, or equal to) (C]. If you wanted to find all of the records from A-Z, 
you type something like [N][E] (not equal to) [@]. This would give you every record 
on the file, from A to Z. 


Press [F] for Find. Type in the field name, then the relation. Do several of these, so 
that you understand them. Press [N) for Next and go through them. Use[P]for 
Previous to go back. 


Now we are going to edit a record. You edit records, one at a time. Press [E]for 
Edit. The cursor will be at the beginning of the first field. Change the data by 
typing in new information, and press . The cursor has moved to the 
second field. Press and the information will remain the same. Press 
for every other field in the record. You can use all of the editing features we have 
talked about earlier. 


Now we are going to delete a record. As in editing, you only delete one record at 
a time, the one on the screen. Press [D) for Delete. 


The screen will show: 
ARE YOU SURE (¥JNi? 
Press [Y]. The record will now be deleted. 
If you would like a hardcopy printout of the records, first Find the record you 
want to print. When the record you want is on the screen, simply press (H) for 


Hardcopy. 


Press . You will return to the Main Menu. 


Note: Records counter will not be corrected for the deletion until you sort. 


Printing Records 


Printing Records 


Just as you set up the form for your records, you may design your own form for 
printing. 


Press [P] for Print. 


The screen will show: 


This is a graph that represents the paper on the line printer. There are 132 
characters spaces on which you can print. You can see that there are three lines 
that you may use. The first line is the title line. The second line is the column 
name line. The third line is the field data line. 


You may be thinking that the screen is not showing 132 characters. Press the } 
key and follow it across the screen. See how it shifts. Once you reach the end, 
press the KJ key and go back to the beginning of the line. 


The first line is the title line. You can call the printout anything you wish. You 
simply write with the cursor, as you did with setting up the form. Type [C][L]U]B) 


MEJMBIE]RI[S] in the Page Title Line. 


The second line is the label you are using for the fields. You may use as many of 
the fields as you wish. You must be careful to space them properly, as the field 
data should fit underneath them. Put all seven fields on the screen. 


The third line simply needs periods as in the field space itself. 


Put as many periods as you will need for each field. 
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Printing Records (continued) 


If there is not enough room for the fields, you may adjust the names. Use the 


[SHIFT ](1) and (0). 


Your printer form should look something like this: 


Press IBREAK] . 
The screen will show: 


ARE ALL CORRECT (Y/N)?_ Press [¥]. 


The computer will ask for the Field Names. Give each name as it appears on the 
records. The computer places the field it wishes you to name at the left margin 
and asks you to give the field name of the data you wish to be placed in each 
field. The column titles need not correspond to the actual field names. 


You will now be asked how you want to print. You will be given the same kind of 
formula as for Find: 


NAME OF FIELD: 
RELATION: 


SEARCH FOR: 


Printing Records (continued) 


Printing will begin immediately. In order to stop, hold down the[@|key. The 
printer will move up to the next page and stop. You will now return to the 
formula again and may print in a different manner. If you allow it to complete 
the printing, it will move up to the next page and return to the printing criteria. 
Press and you wiil return to the Main Menu. 
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Ending the Program and Starting All Over 


Ending the Program 


Once you have finished, press |@]to exit. You will now be in DOS. 


Starting All Over 


Now you will want to clear it all out and start over with your own records and 
information. Once you are in DOS, look at the Directory by typing [D)[)][R] and 
pressing . You will see listed four data files: 


PRODAT The large file containing all the data. 
INFOFILE The file containing the fields. 

FORMPILE The file containing the form for the records. 
LPFORM The file containing the form for your printing. 


In order to start over, you must kill each of these files. Type: 
KOHOORRODAM and press [ENTER]. 
KROWUWUOWMNEOIEIUELIE) and press [ENTER]. 
KOUDOORORIMEIOEE) and press[ENTER] . 
KIWUUOLIPIEOR)M and press 


Now type [D][1)[R] and press — the files are gone. Once again, you have a 
clean slate and may start over with your own records. 
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Appendix 1 — How to Format Your Data Diskettes 


This process prepares blank diskettes for use on the disk system. All data diskettes 
must be formatted before being used. Here’s how you do it: 


1 — Insert a blank diskette in Drive #1 


2— Do the following exactly as shown: 


Screen Shows: You Type: 

DOS READY FORMAN press 
WHICH DRIVE etc. (1) press [ENTER 
DISKETTE NAME? (DIAIMAI(s)(¢) press 
CREATION DATE? DMYAMMMB8)@) press 
MASTER PASSWORD (P)(A)(S][S]WO)(R)(D) ~—press 
LOCK OUT ANY TRACKS? (N} (0) press 
HIT VENTER’ TO CONTINUE press [ENTER| 
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Appendix 2 — How to Back Up Your Diskettes 


Use this procedure EXACTLY: 
1— Turn on everything except the TRS-80 keyboard. If this is the first time 
you’ve ever used the Radio Shack Disk System, refer to the Disk Operating 


System Manual for detailed instructions. 


2— Insert a new, blank diskette in Drive #1 (farthest from the Interface) with the 
diskette notch up, label to the right. 


3— Close the Drive #1 Door. 
4 — Insert the diskette you wish to copy in Drive #9 with the notch up, label 
facing right, and close the door. (Drive #9 is the first drive connected to the 


interface. ) 


o— Turn on the TRS-80 Keyboard. (The switch on the right rear apron.) 


This is what the screen shows: This is what you type: 

DOS READY {B)[A](C][K][U)[P] , and press 

SOURCE DRIVE NUMBER? (6) , and press 

DESTINATION DRIVE NUMBER? [1], and press 

BACKUP DATE (MM/DD/YY)? anOmnoOEw® 
(Example for January 1, 1980 

rit “ENTER TO CONTINUE STOP — Don’t press anything!!! 


Now we can check to see if the ‘““BACUP” procedure was successful: 
1— Remove the original diskette from Drive #9. 


2— Take the backup diskette out of Drive #1. Place the backup copy in Drive 
#(Q and close the door. 


3— Now you can press [ENTER]. If the screen shows: DOS READY, your 
backup was successful. 


If something went wrong, go back to step 1. 


Appendix 3 — Using Disk Basic With Profile 


Using Disk Basic with Profile 


If you are experienced in using DISK BASIC and disk files, you will be happy to 
know that DISK BASIC programs can be written to read the data files created by 
Profile. The Profile program was not designed to perform any arithmetic on 
numeric data you enter. DISK BASIC, however, can be used to calculate billing, 
compare dates, and perform other processing on the data which Profile creates. 


Profile was designed so that its data files may easily be read by DISK BASIC. 
Profile always stores data as fixed records with a single carriage return following 
the record. Thus the data created by Profile, can be read as a sequential or a 
random file. Deleted records are filled with X‘CO’ characters (decimal 192), 
and should be ignored if found. 


When using random files, you should create your data form so that the amount of 
data is one less than a number which is evenly divisible into 256. (The numbers 

3, 7,15, 31, 63, 127 and 255 are the only choices.) Since Profile always adds a 
carriage return to the end of each record, the actual logical record length will be 
4, 8, 16, 32, 64, 128 and 256. This makes the deblocking of records very simple 
with DISK BASIC. If we wish to read the 6th record in the file, and the record 
length is 64, we would use the following DISK BASIC statements: 


10 OPEN’R",1,"PRODAT:@":  INPUT’ENTER RECORD NUMBER”:N 
20 PR = 1+INT((N—1)/4): LR =(N—1) -(PR—) }2 


30 GET 1,PR: FIELD 1, (64*LR) ASDUMMY$, 64 AS R$ 


In the program above, PF is the Physical Record (sector) in the PRODAT file 
which contains the desired logical record. LR gives the number of the logical 
record within the physical sector. The logical records are numbered Q, 1, 2, and 3 
in each sector — four logical records per sector. DUMMY‘$ is a dummy string used 
for record alignment, and R$ is the actual 64 characters of the record we want. 
Since we wanted the 6th record, PR would be equal to two (2) and the second 
sector of PRODAT is read. LR is equal to one (1) and the second logical record 
in sector two is placed into R$. 


Reading the PRODAT file as a sequential file is much easier to do. Since each 
record is followed by a carriage return, the file can be read using the 
LINEINPUT# statement. The following program reads in the first record of the 
PRODAT file: 

12 OPEN’ 1, PRODAT 0" 

20 LINEINPUT#1, R$ 


The data for the first record which Profile created is read into the variable R$. 
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The Profile Control File 


The Profile Control File 


The Profile program creates an important file called INFOFILE on Drive 9 of 
your Profile System. This file contains all information you will need to know 
about the PRODAT file(s). The following DISK BASIC program reads all the 
important information out of INFOFILE. 


*10 CLEAR20@@: DEFINT A-Z: DIM D(4),NM$(32),CU(32),LN(32) 

20 OPEN”R”.1,“INFOFILE:@”: GET 1,1: D(@)=0 

30 FIELD 1, 2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS DR$, 1 AS RLS, 

1 AS NF$,2 AS D$(1), 2 AS D$(2), 2 AS D$(3), 2 AS D$(4) 

AQ NR=CVI(NR$): MX=CVI(MX$): MD=ASC(MD$): DR=CVI(DR$) 

5g RL=ASC(RL$): NF=ASC(NF$): FORI=1T04:D(1)=CVI(D$(1)):NEXT | 
“v6 GET1,2: FORI=@TONF—1: IF I=8 THEN GET1,3 
47@ FIELD 1, (1*16) AS DUMMY$, 13 AS N$, 2 AS CU$, 1 AS L$ 

80 NM$(I+1)=N$: CU(I41)=CVI(CU$): LN(I1+1) = ASC(L$) 
¥90 NEXT |: CLOSE 


4 hanes trom WV eT] | 
This code should be executed at the beginning of any DISK BASIC program 
which will access the PRODAT files. The meanings of the variables and arrays are 
as follows: 


Variable Meaning 
NR The Number of Records in the PRODAT file(s), 
including any deleted records. 


MX The Maximum Number of records allowed. 

MD The Maximum Drive number used (9 to 3) 

DR The number of Deleted Records on disk 

RL The total Record Length of the Fixed-length records 


which Profile creates. (The final carriage return is included 
in this length.) 


NF The Number of Fields defined at initialization 


D(i) The highest record number stored on Drive i-1 (Record 
numbers start at zero.) 


NM$(i) The Name of the ith data field. 


CU(i) The PRINT@ position plus 153869, where the ith data field 
starts on the video display. 


LN(1) The Length of the ith data field 


Appendix 4 — The Profile Control File (continued) 


Examples of Using Disk Basic 


Let’s use the Club Member list which was used previously in this manual. We will 
set up the data form with 638 characters, for a total record length of 64. The data 
fields have the following lengths: 


Field Name Length of Data Field 
NAME OF MEMBER 16 
ADDRESS 15 
CITY 19 
STATE 2 
BIRTHDATE 8 
DUES/YEAR 6 
PAID DUES 6 


The form would look something like this: 


** PROFILE DATA FORM ** 


OM Pe ah ee bh baney OTA ES 
BIRTHDATE: MM/DD/YY 


DUES/YEAR: $$$.¢¢ PAID DUES: $$$.¢¢ 
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Appendix 5 — Random File Sample 


Random File Example 


The following program will read any record from disk and display it on the video 
display: 


19 CLEAR2000: DEFINT A-Z: DIM D(4),NM$(32),CU(32),LN(32), Afif- ,) 
20 OPEN”R”,1,"INFOFILE:0”: GET 1,1: D(@)=0 | 
30 FIELD1,2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS DR$, 1 AS RLS, 
1 AS NF$, 2 AS D$(1), 2 AS D$(2), 2 AS D$(3), 2 AS D$(4) 
4d NR=CVI(NR$): MX=CVI(MX$): MD=ASC(MD$): DR=CVI(DR$) 
5@ RL=ASC(RL$): NF=ASC(NF$): FORI=1T04:D(1)=CVI(D$(I)):NEXTI 
60 GET1,2: FORI-OTONF—1; IF 1=8 THEN GET1,3 
70 FIELD 1, (he 16) AS DUMMY$, 13 AS N$, 2 AS CU$, 1 AS L$ 
80 NM$(I+1)=N$: CU(I+1)=CVI(CU$): LN(I+1)=ASC(L$) 
o9, NEXT |: CLOSE 
100 FORI=@TOMD: OPEN’R’,1+1,"PRODAT:”+CHR$(48+1): NEXT | 
110 CLS: INPUT”ENTER RECORD#”;N$:1FN$=""END”’THEN999 ELSE PRINT 
120 N=VAL(N$):IFN <1 OR N>NR THEN PRINT“ OUT OF RANGE”: GOTO 200 
130 DR=1: FOR I=1TOMD+1:1F N>D(I)+1 THEN DR=I+1:NEXT ELSE NEXT 
140 NN=N—(D(DR—1)+1): [F DR>1 THEN NN=NN—1 
15@ PR=1+INT(NN/4): LR=NN — 4*INT(NN/4): GETDR,PR: D=0 
160 FORI=1TONF:FIELD DR,(LR*64+D)AS D$,LN(I) AS R$(1) 
170 D=D+LN(I): NEXT | 
180 IF MID$(R$(1),1,1)=>CHR$(192) THEN PRINT’DELETED’’:GOTO200 
190 FORI=1TONF: PRINT NM$(1)"": “R$(I): NEXT | 
200 PRINT:INPUT’’PRESS (ENTER) TO GO ON"”:A$: GOTO 119 


vy GLOUSE. END 
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Appendix 6 — Example Using Sequential Access 


Example Using Sequential Access 

The following program prints out a list of all Club Members that still owe any 

dues for this year. DISK BASIC sequentially reads in each Club Member, performs 

some arithmetic, and prints their name and the amount owed to the line printer. 
10 CLEAR2@@0: DEFINT A-Z: DIM D(4),NM$(32),CU(32),LN(32) 
20OPEN R71) INFOFILE:@’: GET 1:42 DIGi=0 


39 FIELD1,2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS DR$, 1 AS RL$, 
1 AS NF§, 2 AS D$(1), 2 AS D$(2), 2 AS D$(3), 2 AS D$(4) 


49 NR=CVI(NR$): MX=CVI(MX$): MD=ASC(MD$): DR=CVI(DR$) 

50 RL=ASC(RL$): NF=ASC(NF$): FORI=1T04:D(I)=CVI(D$(1)) :NEXTI 
60 GET1,2: FORI=@TONF—1: IF 1=8 THEN GET1,3 

7@ FIELD 1, (1*16) AS DUMMY$, 13 AS N$, 2 AS CU$, 1 AS L$ 

80 NM$(I+1)=N$: CU(I+1)=CVI(CU$): LN(I+1)=ASC(L$) 

90 NEXT |: CLOSE: ONERROR GOTO 200 

100 FORI=@TOMD: OPEN’R” 1+1,’PRODAT:”+CHR$(48+1): NEXT | 

11@ DR=1: FORJ=1TONR: IF J>D(DR)+1 THEN DR=DR+1 

120 LINEINPUT#DR, R$:IFLEN(R$)=0THEN120 ELSE NM$=MID$(R$, 1,16) 
130 IF MID$(R$(1),1,1)=CHR$(192) THEN 160 

149 DY!=0:PD!I=@:DY! =VAL(MID$(R$,52,6)): PD! =VAL(MID$(R$,58,6)) 
15@ LPRINT “NAME: “‘NM$, ‘‘AMOUNT OWED:” DY! — PD! 

16@ NEXTJ: CLOSE: END 

200 IF ERR=2 THEN RESUME NEXT 


21@ ONERROR GOTO@ 


Appendix 4 — The Profile Control File (continued) 


Examples of Using Disk Basic 


Let’s use the Club Member list which was used previously in this manual. We will 
set up the data form with 68 characters, for a total record length of 64. The data 
fields have the following lengths: 


Field Name Length of Data Field 
NAME OF MEMBER 16 
ADDRESS 15 
CITY 19 
STATE 2 
BIRTHDATE 8 
DUES/YEAR 6 
PAID DUES 6 


The form would look something like this: 


*" PROFILE DAIA FORM ** 


i Crpeoe-s naran SAT ES «5 
BIRTHDATE: MM/DD/YY 


DUES/YEAR: $$$.d¢¢ PAID DUES: $$$.¢¢ 
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Appendix 5 — Random File Sample 


Random File Example 


The following program will read any record from disk and display it on the video 
display: 


10 CLEAR2000: DEFINT A-Z: DIM D(4), NM$(32),CU(32),LN(32), A/i(2 4) 
20 OPEN’R”,1,"INFOFILE:0”: GET 1,1: D(@)=0 . 
30 FIELD1,2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS DR$, 1 AS RL$, 

1 AS NF$, 2 AS D$(1), 2 AS D$(2), 2 AS D$(3), 2 AS D$(4) 
40 NR=CVI(NR$): MX=CVI(MX$): MD=ASC(MD$): DR=CVI(DR$) 


50 RL=ASC(RL$): NF=ASC(NF$): FORI=1T04:D(1)=CVI(D$(1)) :NEXT| 


_ 


60 GET1,2: FORI=OTONF-—1: IF I=8 THEN GET1,3 


70 FIELD 1, (K*16) AS DUMMY$, 13 AS N$, 2 AS CUS, 1 AS L$ 


80 NMS(I+1)=N$: CU(I+1)=CVI(CUS): LN(I+1)=ASC(L$) 

O0,NEXT |: CLOSE 

100 FORI=OTOMD: OPEN”R”,I+1,“PRODAT:+CHR$(48+1): NEXT | 
110 CLS: INPUT“ENTER RECORD#” jN$:IFN$="END” THEN999 ELSE PRINT 
120 N=VAL(N$):1FN <1 OR N>NR THEN PRINTOUT OF RANGE”: GOTO 200 
130 DR=1: FOR I=1TOMD+1:IF N>D(I)+1 THEN DR=1+1:NEXT ELSE NEXT 


140 NN=N—(D(DR=1)41)7 1F DR>1 Tite ere * 
We should point out that the formulas for 
= . = x,y calculating physical records and sub- 
150 PR=1+INT(NN/4): LR=NN — 4°10 records (PR and LR in line 150 page 28) 
are normally: 
160 FORI=1TONF-FIELD DR,(LR™64¢ — pR— INT((KEY%—1)/N) +1 and 
LR= KEY%—N*(PR — 1) 
2 D=DSLN NGA where PR is the Physical Record number, 
KEY% is the number of the record you 
180 1F MID$(R$(1),1,1)=CHR$(192) 1 want to access, N is the number of sub- 
records in each physical record and LR is 
1. __ the subrecord number which contains the 
190 FORI=1TONF: PRINT NMS(I)""" "Gata for KEY%. We modified these for- 
mulas slightly in the program on page 28 
200 PRINT:INPUT’PRESS (ENTER) ~ to allow us to determine which disk drive, 
as well as which physical record and sub- 
record contained the information. For 
eo0 CLOSES END more information on accessing informa- 
tion in random access files, refer to the 
Model I Disk Operating manual, section 
seven. 
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Appendix 5 — Random File Sample 


Random File Example 


The following program will read any record from disk and display it on the video 
display: 


19 CLEAR2000: DEFINT A-Z: DIM D(4),NM$(32),CU(32),LN(32), Aii/ 


, 
all 


20 OPEN’R”,1,"INFOFILE:0”: GET 1,1: D(0)=0 
30 FIELD1,2 AS NR$, 2 AS MX$, 1 AS MD$, 2 AS DR$, 1 AS RL$, 
1 AS NF$, 2 AS D$(1), 2 AS D$(2), 2 AS D$(3), 2 AS D$(4) 

40 NR=CVI(NR$): MX=CVI(MX$): MD=ASC(MD$): DR=CVI(DR$) 

5@ RL=ASC(RL$): NF=ASC(NF$): FORI=1TO4:D(1)=CVI(D$(I)):NEXT| 

60 GET1,2: FORI=OTONF-1: IF I=8 THEN GET1,3 

7@ FIELD 1, ye 16) AS DUMMY$, 13 AS N$, 2 AS CU$, 1 AS L$ 

80 NM$(I+1)=N$: CU(I+1)=CVI(CU$): LN(1+1)=ASC(L$) 

90,NEXT |: CLOSE 

19@ FORI=@TOMD: OPENR”,|+1,“PRODAT:”+CHR$(48+1): NEXT | 
119 CLS: INPUT“ENTER RECORD#";N$:IFN$="END’’THEN999 ELSE PRINT 
120 N=VAL(N$):1FN <1 OR N>NR THEN PRINTOUT OF RANGE”: GOTO 200 
130 DR=1: FOR I=1TOMD+1:1F N>D(I)+1 THEN DR=I+1:NEXT ELSE NEXT 
149 NN=N—(D(DR—1)+1): IF DR>1 THEN NN=NN-1 
150 PR=1+INT(NN/4): LR=NN — 4*INT(NN/4): GETDR,PR: D=0 
160 FORI=1TONF: FIELD DR,(LR*64+D)AS D$,LN(1) AS R$(!) 
170 D=D+LN(I): NEXT | 
180 |F MID$(R$(1),1,1)=CHR$(192) THEN PRINT DELETED’’:GOTO200 
199 FORI=1TONF: PRINT NMS(1)": “RS(I): NEXT | 
200 PRINT:INPUT“PRESS (ENTER) TO GO ON”;A$: GOTO 119 


999 CLOSE: END 


IMPORTANT NOTICE 


ALL RADIO SHACK COMPUTER PROGRAMS ARE DISTRIBUTED ON AN 
‘““AS IS” BASIS WITHOUT WARRANTY. 


Radio Shack shall have no liability or responsibility to customer or any other 
person or entity with respect to any liability, loss or damage caused or alleged to 
be caused directly or indirectly by computer equipment or programs sold by 


Radio Shack, including but not limited to any interruption of service, loss of 
business or anticipatory profits or consequential damages resulting from the use 
or operation of such computer or computer programs. 

NOTE: Good data processing procedure dictates that the user test the program, 
run and test sample sets of data, and run the system in parallel with the 
system previously in use for a period of time adequate to insure that 
results of operation of the computer or program are satisfactory. 


RADIO SHACK BE DIVISION OF TANDY CORPORATION 


U.S.A.: FORT WORTH, TEXAS 76102 
CANADA: BARRIE, ONTARIO L4M 4W5 


TANDY CORPORATION 


AUSTRALIA BELGIUM U.K. 
280-316 VICTORIA ROAD PARC INDUSTRIEL DE NANINNE BILSTON ROAD WEDNESBURY 
RYDALMERE, N.S.W. 2116 5140 NANINNE. WEST MIDLANDS WS10 7JN 


PRINTED IN U.S.A. 


